Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_bas/easynet.zip/DEMO.ZIP/MDI.FRM

Text File | 1995-12-26 | 11KB | 385 lines

VERSION 4.00
Begin VB.MDIForm MDI1
   Appearance      =   0  'Flat
   BackColor       =   &H8000000C&
   Caption         =   "Wellcome to EasyNet!!"
   ClientHeight    =   5040
   ClientLeft      =   1170
   ClientTop       =   1725
   ClientWidth     =   7965
   Height          =   5730
   Left            =   1110
   LinkTopic       =   "MDI1"
   Top             =   1095
   Width           =   8085
   Begin VB.PictureBox Picture1
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      FillColor       =   &H00C0C0C0&
      BeginProperty Font
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   8.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   0
      ScaleHeight     =   615
      ScaleWidth      =   7965
      TabIndex        =   0
      Top             =   0
      Width           =   7965
      Begin VB.CommandButton Command1
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   "EasyNet help"
         BeginProperty Font
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   400
            size            =   9.75
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   3810
         TabIndex        =   2
         Top             =   90
         Width           =   1665
      End
      Begin VB.CommandButton Command5
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   "Comments..."
         BeginProperty Font
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   400
            size            =   9.75
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   120
         TabIndex        =   1
         Top             =   90
         Width           =   3525
      End
      Begin VB.Line Line1
         X1              =   0
         X2              =   8700
         Y1              =   600
         Y2              =   600
      End
   End
   Begin VB.Menu FileMenu
      Caption         =   "&File"
      Begin VB.Menu Exitmenu
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu EditMenu
      Caption         =   "&Edit"
      Begin VB.Menu CopyMenu
         Caption         =   "&Copy to clipboard"
      End
      Begin VB.Menu DeleteMenu
         Caption         =   "&Delete selected items"
      End
      Begin VB.Menu SEPARATOR1
         Caption         =   "-"
      End
      Begin VB.Menu SelectAllMenu
         Caption         =   "Select &all"
      End
      Begin VB.Menu SEPARATOR3
         Caption         =   "-"
      End
      Begin VB.Menu SelectModeMenu
         Caption         =   "Select &Mode"
      End
   End
   Begin VB.Menu ShowMenu
      Caption         =   "&Show"
      Begin VB.Menu ShowExample
         Caption         =   "&WorkFlow"
         Index           =   0
      End
      Begin VB.Menu ShowExample
         Caption         =   "&NetWork"
         Index           =   1
      End
      Begin VB.Menu ShowExample
         Caption         =   "&Diagram"
         Index           =   2
      End
      Begin VB.Menu ShowExample
         Caption         =   "&FlowChart"
         Index           =   3
      End
   End
   Begin VB.Menu ZoomMenu
      Caption         =   "&Zoom"
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&100% (Normal)"
         Index           =   0
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&200%"
         Index           =   1
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&50%"
         Index           =   2
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "0% (Fit in Window)"
         Index           =   3
      End
   End
   Begin VB.Menu CapabilitiesMenu
      Caption         =   "&Capabilities"
      Begin VB.Menu MultiSelectionMenu
         Caption         =   "Multi &Selection"
      End
      Begin VB.Menu ReadOnlyMenu
         Caption         =   "&Read Only"
      End
      Begin VB.Menu CanSizeNodeMenu
         Caption         =   "Can Si&ze node"
      End
      Begin VB.Menu CanMoveNodemenu
         Caption         =   "Can &Move node"
      End
      Begin VB.Menu CanStretchLinkMenu
         Caption         =   "Can S&tretch link"
      End
      Begin VB.Menu CanMultiLinkMenu
         Caption         =   "Can M&ulti link"
      End
      Begin VB.Menu CanDrawNodeMenu
         Caption         =   "Can Draw &Node"
      End
      Begin VB.Menu CanDrawLinkMenu
         Caption         =   "Can Draw &Link"
      End
      Begin VB.Menu AutoScrollMenu
         Caption         =   "&AutoScroll"
      End
   End
   Begin VB.Menu WindowMenu
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin VB.Menu CascadeMenu
         Caption         =   "&Cascade"
      End
      Begin VB.Menu TileMenu
         Caption         =   "&Tile"
      End
      Begin VB.Menu ReorganizeMenu
         Caption         =   "&Reorganize"
      End
   End
   Begin VB.Menu InfoMenu
      Caption         =   "&Info"
      Begin VB.Menu HelpMenu
         Caption         =   "EasyNet &Help "
      End
      Begin VB.Menu SEPARATOR2
         Caption         =   "-"
      End
      Begin VB.Menu AboutMenu
         Caption         =   "&About..."
      End
   End
End
Attribute VB_Name = "MDI1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Private Sub AboutMenu_Click()
  About.Show 1
End Sub

Private Sub AutoScrollMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub

  ActiveForm.Net1.Item = 0
  ActiveForm.Net1.AutoScroll = Not ActiveForm.Net1.AutoScroll
  AutoScrollMenu.Checked = ActiveForm.Net1.AutoScroll
End Sub

Private Sub CanDrawLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.Item = 0
  ActiveForm.Net1.CanDrawLink = Not ActiveForm.Net1.CanDrawLink
  CanDrawLinkMenu.Checked = ActiveForm.Net1.CanDrawLink
End Sub

Private Sub CanDrawNodeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.CanDrawNode = Not ActiveForm.Net1.CanDrawNode
  CanDrawNodeMenu.Checked = ActiveForm.Net1.CanDrawNode
End Sub

Private Sub CanMoveNodemenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.Item = 0
  ActiveForm.Net1.CanMoveNode = Not ActiveForm.Net1.CanMoveNode
  CanMoveNodemenu.Checked = ActiveForm.Net1.CanMoveNode
End Sub

Private Sub CanMultiLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.CanMultiLink = Not ActiveForm.Net1.CanMultiLink
  CanMultiLinkMenu.Checked = ActiveForm.Net1.CanMultiLink
End Sub

Private Sub CanSizeNodeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.Item = 0
  ActiveForm.Net1.CanSizeNode = Not ActiveForm.Net1.CanSizeNode
  CanSizeNodeMenu.Checked = ActiveForm.Net1.CanSizeNode
End Sub

Private Sub CanStretchLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.Item = 0
  ActiveForm.Net1.CanStretchLink = Not ActiveForm.Net1.CanStretchLink
  CanStretchLinkMenu.Checked = ActiveForm.Net1.CanStretchLink
End Sub

Private Sub CascadeMenu_Click()
  Arrange CASCADE
End Sub

Private Sub Command1_Click()
  HelpMenu_Click
End Sub

Private Sub Command5_Click()
  If ActiveForm Is Nothing Then Exit Sub
  frmComments.Show 1
End Sub

Private Sub CopyMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.EditAction = 7
End Sub

Private Sub DeleteMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.EditAction = 2
End Sub

Private Sub Exitmenu_Click()
  Unload Me
End Sub

Private Sub HelpMenu_Click()
  Dim rc As Integer
  rc = WinHelp(hWnd, "easynet.hlp", HELP_INDEX, 0)
End Sub

Private Sub MDIForm_Load()
  cr = Chr$(13)
  lf = Chr$(10)
  Me.WindowState = 2
  Form1.Show
  Form2.Show
  Form3.Show
  Form4.Show
  TileMenu_Click
End Sub

Private Sub MDIForm_Resize()
  Line1.X1 = 0
  Line1.X2 = ScaleWidth
End Sub

Private Sub MultiSelectionMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.MultiSel = Not ActiveForm.Net1.MultiSel
  MultiSelectionMenu.Checked = ActiveForm.Net1.MultiSel
  ActiveForm.Net1.EditAction = 4
End Sub

Private Sub ReadOnlyMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.ReadOnly = Not ActiveForm.Net1.ReadOnly
  ReadOnlyMenu.Checked = ActiveForm.Net1.ReadOnly
  ActiveForm.Net1.EditAction = 4
End Sub

Private Sub ReorganizeMenu_Click()
  Arrange REORGANISER_ICONES
End Sub

Private Sub SelectAllMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.EditAction = 3
End Sub

Private Sub SelectModeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.SelectMode = Not ActiveForm.Net1.SelectMode
  If ActiveForm.Net1.SelectMode = True Then
    SelectModeMenu.Checked = True
    ActiveForm.Net1.MousePointer = 2
  Else
    SelectModeMenu.Checked = False
    ActiveForm.Net1.MousePointer = 0
  End If
End Sub

Private Sub ShowExample_Click(Index As Integer)
  Select Case Index
  Case 0
    Form1.Show
  Case 1
    Form2.Show
  Case 2
    Form3.Show
  Case 3
    Form4.Show
  End Select
End Sub

Private Sub TileMenu_Click()
  Arrange MOZAIQUE_HORIZONTALE
End Sub

Private Sub ZoomValueMenu_Click(Index As Integer)
  Dim Zoom%, i%

  If ActiveForm Is Nothing Then Exit Sub

  For i = 0 To 3
    ZoomValueMenu(i).Checked = False
  Next

  Select Case Index
  Case 0
    Zoom = 100
  Case 1
    Zoom = 200
  Case 2
    Zoom = 50
  Case 3
    Zoom = 0
  End Select

  ZoomValueMenu(Index).Checked = True
  ActiveForm.Net1.Zoom = Zoom
End Sub